home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / do1beta.zip / DIR.DO < prev    next >
Text File  |  1991-07-25  |  154b  |  8 lines
  1. /*
  2.     demonstrate the String::dir() method
  3. */
  4. w = new(Window,1,7,7," Select File ",5,5,10,40);
  5. s= dir("","*.do");
  6. remove(w);
  7. ? "your choice was ",s;
  8.